0 POKE2040,0:POKE2041,0:POKE646,5:GOTO4120
1 CLOSE1:OPEN1,8,0,"$":GET#1,A$,A$:E$=CHR$(0):!PRINTC$+C$
2 GET#1,A$,A$,H$,L$:IFSTTHEN:!PRINTC$+C$:CLOSE1:RETURN
3 !PRINTSTR$(ASC(H$+E$)+256*ASC(L$+E$))
4 IF RS AND 1 THEN CLOSE1:RETURN
5 GET#1,A$,B$:IFA$<>"" AND B$<>""THEN:!PRINTA$+B$:GOTO4
6 !PRINTA$+C$
7 GOTO2
70 POKECX,0:!PRINTC$+C$+C$:A$=""
80 D$="":INPUT#1,D$:D$=A$+D$:S1=ST
90 IFS1<>0ORPEEK(CX)=255THEN:!PRINTC$+C$+">>[160][198]ILE[160][197]NDE[160]<<":CLOSE1:RETURN
100 !PRINTC$+C$+D$+C$:!PRINT"[205]SG.[160]VON[160]"
110 INPUT#1,F$:!PRINTF$:!PRINTC$+C$:GOSUB 7700:IFPEEK(CX)=255THEN90
120 GET#1,A$:A$="":GET#1,A$:S1=ST
130 IFS1<>0THEN90
140 IFS4=1THEN:!PRINTC$+">"+C$:GOTO160
150 !PRINTC$+">"+C$:IF(PEEK(ER)AND16)=0THENFL=1:FC=1:CLOSE1:RETURN
160 GOTO80
170 ZZ=76:GOSUB 7800:IFFL=1THENRETURN                    
180 PRINT:EI$(I)=A$:IFA$="..."ORPEEK(KZ)=255THENRETURN
200 GF=GF+LEN(A$):IFGF>EBTHENEI$(I)="...":!PRINTC$+C$+"[197]>[160][218]UVIELE[160][194]YTES":RETURN
210 GOTO170
220 AA$="":FL=0
230 IFS4=1THEN250
240 IF(PEEK(ER)AND16)=0THENFL=1:FC=1:RETURN
250 IF SP=1 THEN GOTO260
255 !INPUTAA$,50:GOTO 270
260 !INPUTAA$,50,ASC("-")
270 IF RS AND 128 THEN FL=1:FC=1:RETURN
360 RETURN
370 IFPEEK(198)=0THENGOTO230
380 GETA$:IFA$=C1$THENRETURN
390 IFA$=D4$ANDLEN(AA$)-1<0THEN230
400 IFA$=D4$THENL1=LEN(AA$):AA$=LEFT$(AA$,L1-1):PRINT#2,D5$;:PRINTA$;:GOTO230
410 A$=CHR$(PEEK(52736+ASC(A$)))
420 GOTO310
430 CLOSE1
440 REM
450 FF=0:OPEN4,8,2,"USERLISTE,S,R"
460 INPUT#4,AN$:INPUT#4,AP$:IFAN$=SB$THENFF=0:NA$=AN$:CLOSE4:RETURN
470 IFST<60THEN460
480 FF=1:CLOSE4:RETURN
500 GOTO450
510 CZ=56328:POKECZ+7,PEEK(CZ+7)AND127:POKECZ+6,PEEK(CZ+6)OR128
520 PRINT"[196]ISK[160]READY.":PRINT:PRINT
530 INPUT"[218]EIT[160][160][160][160][160][160][160][160][160](HHMM)";A$:H=VAL(LEFT$(A$,2)):M=VAL(MID$(A$,3,2))
540 INPUT"[212]AG[160][160][160][160][160][160][160][160][160][160](1-31)";DN
550 INPUT"[205]ONAT[160][160][160][160][160][160][160][160](1-12)";DM
555 INPUT"[202]AHR  [160][160][160][160][160]        ";JR$
557 DT$=RIGHT$(STR$(DN),2)+"."+DM$(DM)+"[160]"+JR$
560 S=VAL(RIGHT$(A$,2)):IFH>11THENH=H+68
570 POKECZ+3,16*INT(H/10)+H-INT(H/10)*10:POKECZ+2,16*INT(M/10)+M-INT(M/10)*10
580 POKECZ+1,16*INT(S/10)+S-INT(S/10)*10:POKECZ,0
590 S4=1:!PRINTC$+C$+"[211]YSOP[160]ON/OFF[160](1/0)":GOSUB220:FO=VAL(AA$)
600 !PRINTC$+"[196]RUCKER[160]ON/OFF(1/0)":GOSUB220:DRU=VAL(AA$):S4=0
610 IFS5=1THENRETURN
620 PRINT"[147]":RETURN
630 CZ=56328:H=PEEK(CZ+3):M=PEEK(CZ+2):S=PEEK(CZ+1):T=PEEK(CZ):FG=1
640 IFH>32THENH=H-128:FG=0:IFH=0THENH=12:GOTO690
650 H=INT(H/16)*10+H-INT(H/16)*16:ONFGGOTO680
660 IFH=12THEN690
670 H=H+12
680 IFH=12THENH=0
690 M=INT(M/16)*10+M-INT(M/16)*16
700 H$=STR$(H):IFLEN(H$)=2THENH$="[160]0"+RIGHT$(H$,1)
710 M$=STR$(M):IFLEN(M$)=2THENM$="[160]0"+RIGHT$(M$,1)
720 IFPRO=1THENPRO=0:RETURN
730 H$=RIGHT$(H$,2):M$=RIGHT$(M$,2):!PRINTH$+"."+M$:RETURN
740 !PRINT C$+C$+C$:IFZ1=0THEN790
750 !PRINT MID$(MN$(Z1,0),4,L-3)+C$
760 FORZ=1TOL-3:!PRINT"-":NEXTZ:!PRINTC$
770 FORZ=1TO9:IFMN$(Z1,Z)<>""THEN:!PRINTMN$(Z1,Z)+C$
780 NEXTZ:!PRINT C$:RETURN
790 !PRINT"[200]AUPTMENU"+C$+"---------"+C$
800 FORZ=1TO9:IFMN$(Z,0)<>""THEN:!WAITMN$(Z,0)+C$,0,0,1
810 NEXTZ:!PRINT"99[160][204][207][199][207][198][198]"+C$+C$:RETURN
820 EI$(1)="..."
830 GF=0:I=1:FS=0:SN$=MN$(Z1,Z2):FP=1:GOSUB860:FP=0:!PRINTC$+C$
840 IFFS=1THENFM=FM+1:GOSUB3960
850 RETURN
860 IFFX=1THEN:!PRINTC$+C$+"[197]>[160][196]IE[160][196]ISKETTE[160]IST[160]VOLL."+C$:RETURN
870 IFEX=2THEN:!PRINT C$+C$+"[197]>":GOTO990
880 !PRINT C$+C$+C$+"[197]DITOR"+C$+"---------"+C$:IFEX=1GOTO980
890 !PRINT"[209][160][201]NS[160][205]ENUE"+C$+C$
900 !PRINT"[197][160][212]EXT[160]EINGEBEN"+C$
910 !PRINT"[218][160][218]EILE[160]AENDERN"+C$
920 !PRINT"[204][160][212]EXT[160]LESEN"+C$
930 IF PRI =1THEN:!PRINT"[211][160][212]EXT[160]DRUCKEN"+C$:GOTO950
940 !PRINT"[211][160][212]EXT[160]ABSAVEN"+C$
950 !PRINT"[196][160][197]DITOR[160]LOESCHEN"+C$
960 !PRINT"[195][160][197]CHO[160]AUS"+C$+C$
970 !PRINT"[194]EIM[160]UPLOAD[160]VON[160][212]EXTEN,[160][197]CHO"+C$+"MIT[160]'[195]'[160]ABSCHALTEN!"+C$+C$
980 !PRINTC$+"[160][196]EINE[160][215]AHL[160]>":IFPEEK(631)=95THENGOSUB5080
990 POKE667,PEEK(668):ZZ=1:GOSUB7800:IFFL=1THENRETURN
1000 IFA$=KQ$ORA$=GQ$ORA$=""THENIFSIC=1THEN6350
1010 IFA$=KQ$ORA$=GQ$ORA$=""THENFE=0:RETURN
1020 IFA$=KE$ORA$=GE$THENSIC=1:GOTO1110
1030 IFA$=KC$ORA$=GC$THENFE=1:!PRINT"[160][197]CHO[160]AUS"+C$:IFEX<>2THEN980
1040 IFEX=2AND(A$=KC$ORA$=GC$)THEN860
1050 IFA$=KZ$ORA$=GZ$THEN1280
1060 IF((A$=KS$)OR(A$=GS$))AND(DRU = 1)AND(X=12) THEN SIC=0:GOTO6240
1070 IFA$=KS$ORA$=GS$THENSIC=0:GOTO1350
1080 IFA$=KL$ORA$=GL$THEN1590
1090 IFA$=KD$ORA$=GD$THEN1560
1100 !PRINT"->":GOTO990
1110 !PRINTC$+C$+C$:IFEX=2THEN1170
1120 IFEX=1THEN1160
1130 !PRINT"[199]IB[160]JETZT[160]DEN[160][212]EXT[160]EIN."+C$
1140 !PRINT"[196]ER[160][212]EXT[160]DARF[160]MAXIMAL"+C$
1150 !PRINTSTR$(EB)+"[160][194]YTES[160]LANG[160]SEIN"+C$+C$+C$
1160 !PRINT"[205]IT[160]DER[160][218]EILE[160]'...'[160][197]INGABE[160]BEENDEN."+C$+C$
1170 IFFE=1THEN1230
1180 !PRINTRIGHT$(STR$(I),2)+">":ZZ=76:GOSUB7800:IFFL=1THENRETURN
1190 !PRINTC$:EI$(I)=A$:GF=GF+LEN(A$):IFA$="..."ORPEEK(KZ)=255THEN860
1200 I=I+1:IFI>=EZTHENEI$(EZ)="...":!PRINTC$+C$+"[197]>[160][218]UVIELE[160][218]EILEN":GOTO860
1210 IFGF>EBTHENEI$(I)="...":!PRINTC$+C$+"[197]>[160][218]UVIELE[160][194]YTES":GOTO860
1220 GOTO1180
1230 IFEX<>0THEN1250
1240 !PRINT"[214]ON[160]NUN[160]AN[160]KEIN[160][197]CHO[160]MEHR."+C$+"[196]U[160]KANNST[160]MIT[160]300[160][194]AUD[160]SENDEN."
1250 !PRINTC$+C$+">"+C$+C$+C$:POKESD,0
1260 GOSUB170:POKESD,1:IFFL=1THENRETURN
1270 !PRINTC$+C$+"[213]EBERTRAGUNG[160]IST[160]BEENDET."+C$:FE=0:GOTO860
1280 !PRINTC$+C$+"[160][160][215]ELCHE[160][218]EILE[160]>"
1290 ZZ=3:GOSUB 7800:IFFL=1THENRETURN
1300 V=VAL(A$):IFV>EZ+1THEN1280
1305 IFV<0THENCLOSE1:OPEN1,8,2,"PROTOKOL,S,A":PRINT#1,"ABS":ZX=1:GOTO5360
1310 IFV=0THEN860
1320 !PRINTC$+C$+C$+RIGHT$(STR$(V),2)+">"+EI$(V)+C$+RIGHT$(STR$(V),2)+">"
1330 ZZ=77:GOSUB 7800:IFFL=1THENRETURN
1340 EI$(V)=A$:GOTO860
1350 IFGF<10OREI$(1)="..."THEN:!PRINTC$+C$+"[197]>[160][197]DITOR[160]LEER"+C$+C$:GOTO860
1360 !PRINTC$+C$+"[160][160][211]AVE,[160]MACH[160]MAL[160]EIN[160][211]CHLAEFCHEN"+C$
1370 IFFP=1THEN1480
1380 CLOSE6:OPEN6,F2,6,"FILES,S,A":PRINT#6,SN$,VN$:CLOSE6
1390 CLOSE1:OPEN1,F1,3,"XY,S,W":Z=1
1400 PRINT#1,DT$:PRINT#1,VN$
1410 IFEI$(Z)="..."ORZ>EZTHEN1430
1420 PRINT#1,EI$(Z):EI$(Z)="":Z=Z+1:GOTO1410
1430 PRINT#1,CHR$(255):CLOSE1:OPEN1,F1,15,"C:ZW=XY,"+SN$:CLOSE1
1440 OPEN1,F1,15,"S:"+SN$:CLOSE1:OPEN1,F1,15,"R:"+SN$+"=ZW":CLOSE1
1450 OPEN1,F1,15,"S:ZW,XY":CLOSE1:!PRINT"[160][160][207][203]!"+C$:GF=0:I=1:EI$(1)="..."
1460 IFEX=2THEN860
1470 GOTO 980
1480 CLOSE1:OPEN1,F2,3,"\"+SN$+",S,W":CLOSE1:OPEN1,F2,3,"\"+SN$+",S,A":Z=1
1490 PRINT#1,DT$:PRINT#1,VN$
1500 IFEI$(Z)="..."ORZ>EZTHEN1520
1510 PRINT#1,EI$(Z):EI$(Z)="":Z=Z+1:GOTO1500
1520 PRINT#1,CHR$(255):CLOSE1:!PRINT" [199]ESCHAFFT"+C$:GF=0:I=1:EI$(1)="...":FS=1
1530 IFS4=1THEN5530
1540 IFEX=2THEN860
1550 GOTO980
1560 !PRINT"[160][199]ELOESCHT"+C$:FORPO=1TOEZ:EI$(PO)="":NEXTPO:EI$(1)="...":GF=0:I=1
1570 IFEX=2THEN860
1580 GOTO980
1590 !PRINTC$+C$+"[160][160][193]B[160]WELCHER[160][218]EILE[160]>":ZZ=3:GOSUB 7800
1600 IFFL=1THENRETURN
1610 !PRINTC$+C$:Z=VAL(A$):IFZ>ITHEN1670
1620 IFZ<0THENOPEN1,8,2,"PROTOKOL,S,A":PRINT#1,"ABS":ZX=1:GOTO5360
1630 IFEI$(Z)="..."THEN1670
1640 IFZ>=EZ+1THEN1700
1650 !PRINTRIGHT$(STR$(Z),2)+">"+EI$(Z)+C$:GETA$:IFA$=CHR$(24)THEN1670
1660 Z=Z+1:GOTO1630
1670 !PRINTC$+"[160][160][210][197][212][213][210][206][160]>":ZZ=1:GOSUB7800
1680 IFFL=1THENRETURN
1690 GOTO 860
1700 !PRINTC$+C$+"[197]>[160][218]EILE[160]...[160]VERGESSEN."+C$:EI$(EZ)="...":GOTO1670
1710 IFFO=1THEN1730
1720 !PRINTC$+C$+C$+"[196]ER[160][211]YSOP[160]IST[160]LEIDER[160]NICHT[160]ANWESEND."+C$+C$+C$:RETURN
1730 RESTORE:!PRINTC$+C$+C$+"[201]CH[160]SCHAU[160]MAL[160]OB[160]ICH[160]IHN[160]FINDE.[160][215]ENN"+C$
1740 !PRINT"ES[160][196]IR[160]ZU[160]LANGWEILIG[160]WIRD,[160]DRUECK"+C$
1750 !PRINT"EINFACH[160][195][212][210][204]-[216]"+C$
1760 PRINT"[213]SER[160]"+VN$+"[160][146]RUFT[160][196]ICH."
1770 GOSUB6460
1780 A$=""                                                                     
1785 GET#2,A$:IFA$=CHR$(24)THEN:!PRINTC$+C$:POKE54296,0:ME=0:POKEAA,0:RETURN
1790 IF(PEEK(ER)AND16)=0THENFL=1:FC=1:POKEAA,0:RETURN
1800 IFPEEK(198)=0THEN1770
1810 !PRINTC$+C$+C$+"[211]UPER,[160]ER[160]WAR[160]IN[160]DER"+C$:POKE54296,0:ME=0:GETA$
1820 !PRINT"[206]AEHE.[160][200]AST[160][199]LUECK[160]GEHABT."+C$+C$
1830 !PRINT"[213]M[160]DEN[160][196]IALOG[160]DEM[160][211]YSOP[160]ZU[160]UEBERGEBEN,"+C$
1840 !PRINT"BITTE[160]*[160]([193]STERISK)[160]DRUECKEN."+C$
1850 POKE667,PEEK(668)
1860 !PRINTC$+C$+"[211]YSOP[160]>"
1870 GETA$:IF(A$=""ORA$<D1$)ANDA$<>C1$ANDA$<>D4$THEN1870
1880 IFA$=CHR$(95)THENGOTO2000
1890 IFA$=D4$THEN:!PRINTD5$:GOTO1870
1900 !PRINTA$:IFA$=CHR$(42)THEN1930
1910 IFA$=CHR$(13)THEN:!PRINTCHR$(10)
1920 GOTO1870
1930 POKE667,PEEK(668):!PRINT C$+C$+C$+"[213]SER[160]>"
1940 GET#2,A$:IF(A$=""ORA$<D1$ORA$>D2$ORA$=D3$)ANDA$<>C1$ANDA$<>D5$THEN1970
1950 IFA$=D5$ORA$=D2$THENPRINT#2,A$;:PRINTD4$;:GOTO1970
1960 PRINT#2,A$;:PRINTA$;:IFA$=CHR$(42)THEN1860
1970 IFA$=CHR$(13)THEN:!PRINTCHR$(10)
1980 IFPEEK(198)=0THEN1940
1990 GETA$:!PRINTC$:GOTO1860
2000 PRINT"[210]ESTZEIT[160]IN[160][205]IN.[160](1-";RT;")";:INPUTZ:IFZ>RT ORZ<0THEN2000
2010 Z=RT-Z:Z$=STR$(Z):Z$="0"+RIGHT$(Z$,LEN(Z$)-1):Z$=RIGHT$(Z$,2)
2020 TI$="00"+Z$+"00":!PRINTC$:RETURN
2030 CLOSE1:OPEN1,F1,3,MN$(Z1,Z2)+",S,R":!PRINT C$+C$+C$+C$+C$
2040 IFFU=1THEN:!PRINTMID$(MN$(Z1,Z2),4,L-3)+C$:GOTO2060
2050 !PRINTMID$(MN$(Z1,Z2),4,L-3)+C$
2060 FORPO=1TOL-3:!PRINT "-":NEXTPO
2070 !PRINTC$:GOSUB 7700:CLOSE1:!PRINTC$+C$+C$+">>[160][198]ILE[160][197]NDE[160]<<"+C$+C$:RETURN
2080 CLOSE1:OPEN1,F1,3,MN$(Z1,Z2)+",S,R":!PRINTC$+C$+C$
2090 IFEX=2THEN:!PRINTC$+C$+LEFT$(MN$(Z1,Z2),2)+">":GOTO2180
2100 IFFU=1THEN:!PRINTMID$(MN$(Z1,Z2),4,L-3):GOTO2120
2110 !PRINTMID$(MN$(Z1,Z2),4,L-3)
2120 !PRINTC$:FORPO=1TOL-3:!PRINT "-":NEXTPO:!PRINT C$
2130 FP=0:IFEX=1THEN2170
2140 !PRINT"[209][160][201]NS[160][205]ENUE"+C$+C$
2150 !PRINT"[204][160][204]ESEN"+C$
2160 !PRINT"[211][160][211]CHREIBEN"+C$
2170 !WAITC$+"[160][160][196]EINE[160][215]AHL[160]>"
2180 POKE667,PEEK(668):ZZ=1:GOSUB7800:IFFL=1THENRETURN
2190 IFA$=KQ$ORA$=GQ$ORA$=""THENCLOSE1:!PRINT C$+C$+C$:RETURN
2200 IFA$=KL$ORA$=GL$THEN2260
2210 IFA$=KS$ORA$=GS$THEN2230
2220 !PRINT"->":GOTO2180
2230 IFFV=1THEN:!PRINT C$+C$+"[196]U[160]MUSST[160][196]ICHZUERST[160]EINSCHREIBEN.":GOTO2080
2240 GF=0:I=1:EI$(1)="...":SN$=MN$(Z1,Z2):CLOSE1:GOSUB860:IFFL=1THENRETURN
2250 GOTO2080
2260 GOSUB70:IFFL=1THENRETURN
2270 GOTO2080
2280 IFEX=2THEN:!PRINTC$+C$:GOTO2320
2290 !PRINTC$+C$+C$+C$+"[213]SERLISTE"+C$+"---------"+C$+C$
2300 !PRINT"(MIT[160][195][212][210][204]-[216][160]ABBRECHEN)"+C$+C$+C$
2320 OPEN1,8,2,"USERLISTE,S,R"
2330 INPUT#1,AA$:INPUT#1,A$:IFST=0THEN:!PRINTAA$+C$:GOTO2340
2335 CLOSE1:GOTO2360
2340 IF RS AND 1 THEN2360
2350 GOTO 2330
2360 !PRINTC$+C$+C$+">>[160][197]NDE[160][213]SERFILE[160]<<"+C$+C$+C$:CLOSE1:RETURN
2370 FP=1:IFEX=2THEN:!PRINT C$+C$:GOTO2390
2380 !PRINTC$+C$+C$+C$+"[208]ERS.[160][205]SG.[160]SCHREIBEN"+C$+"--------------------"+C$+C$
2390 !PRINT"[197]MPFAENGER[160]>":GOSUB220:IFFL=1THENRETURN
2400 IFAA$=""ORFV=1THEN:!PRINTC$+C$+C$:RETURN
2410 SB$=AA$:GOSUB430:IFFF=0THEN2450
2420 !PRINTC$+C$+"[197]MPFAENGER[160]NICHT[160]BEKANNT."+C$+C$
2430 !PRINT"[199]IB[160]DEN[160][197]MPFAENGER[160]NEU[160]EIN[160]ODER"+C$
2440 !PRINT"KEHRE[160]MIT[160]<[195][210]>[160]INS[160][205]ENU[160]ZURUECK."+C$+C$+C$:GOTO2390
2450 !PRINTC$+C$+"[197]MPFAENGER[160]BEKANNT."
2460 GF=0:I=1:EI$(1)="..."
2470 IFS4=1THENRETURN
2480 !PRINTC$:SN$=NA$:FP=1:GOSUB860:FP=0:!PRINT C$+C$+C$:RETURN
2490 IFFX=1THEN:!PRINTC$+C$+C$+"[197]>[160][203]EIN[160][197]INTRAG,[160]DA[160][196]ISK[160]VOLL."+C$:RETURN
2500 !PRINTC$+C$+C$+C$+"[213]SERNEUEINTRAG"+C$+"--------------"+C$:CLOSE1
2510 REM
2520 !PRINTC$+"[208]SEUDONYM[160]>":GOSUB220:IFFL=1THENRETURN
2530 !PRINTC$:NA$=AA$:IFNA$=""ORVN$<>"GAST"THENRETURN
2540 SB$=NA$:GOSUB430:IFFF=0THEN:!PRINTC$+C$+"[197]XISTIERT[160]SCHON."+C$+C$:GOTO2520
2550 IFLEFT$(NA$,1)=CHR$(32)THEN2520
2560 !PRINTC$+"[208]ASSWORT[160][160]>":GOSUB220:IFFL=1THENRETURN
2570 IFAA$=""ORLEFT$(AA$,1)=CHR$(32)THEN2560
2580 PA$=AA$:!PRINT C$+C$+"[197]INGABEN[160]RICHTIG.[160](J/N)[160]>":ZZ=1:GOSUB 7800
2590 IFFL=1THENRETURN
2600 IFA$<>KJ$ANDA$<>GJ$THEN2490
2610 !PRINTC$+C$+C$+"[199]IB[160]ZUR[160][203]ONTROLLE[160]BEIDES[160]NOCHMAL[160]EIN."+C$
2620 !PRINTC$+"[208]SEUDONYM[160]>":GOSUB220:IFFL=1THENRETURN
2630 IFAA$<>NA$THEN:!PRINTC$+C$+"[197]>[160][203]EINE[160][213]EBEREINSTIMMUNG.":GOTO2490
2640 !PRINTC$+C$+"[208]ASSWORT[160][160]>":GOSUB220:IFFL=1THENRETURN
2650 IFAA$<>PA$THEN:!PRINTC$+C$+"[197]>[160][203]EINE[160][213]EBEREINSTIMMUNG.":GOTO2490
2660 !PRINTC$+C$+C$+"[194]ITTE[160]WARTEN."+C$
2670 VN$=NA$:CLOSE1:OPEN1,F2,3,"USERLISTE,S,A":PRINT#1,NA$:PRINT#1,PA$
2680 CLOSE1:OPEN1,F2,3,"USERLISTE.BACKUP,S,A":PRINT#1,NA$:PRINT#1,PA$
2700 AU=AU+1:CLOSE1:OPEN1,8,2,"@:ULIST.INDEX,S,W":PRINT#1,AU:CLOSE1
2710 !PRINTC$+C$+C$+"[200]ERZLICH[160][215]ILLKOMMEN[160]ALS[160][213]SER."+C$:FV=0
2720 GOSUB3960
2730 POKE1114,42:PRINT"":RETURN
2740 !PRINTC$+C$+C$+"[204]AENGERE[160][212]EXTE"+C$+"--------------"+C$:FS=0
2750 IFEX<>0THENGOTO2790
2760 !PRINT"[196]U[160]KANNST[160]HIER[160][212]EXTE[160]BIS[160]ZU[160]5[160][203][194]"+C$
2770 !PRINT"EINGEBEN"+C$+C$
2790 EZ=150:EB=5000:SN$=MN$(Z1,Z2):FP=1:GF=0:I=1:EI$(1)="..."
2800 GOSUB860:FP=0:EZ=50:EB=1500:!PRINT C$+C$
2810 IFFS=1THENFM=FM+1:GOSUB3960
2820 RETURN
2830 !PRINTC$+C$+C$+"[197]X-[211]TATUS>"+STR$(EX)+"[160][160][206]EUER[160][211]TATUS[160](0-2)>"
2840 ZZ=1:GOSUB7800:IFFL=1THENRETURN
2850 EX=VAL(A$):IFEX<0OREX>2THEN2830
2860 !PRINTC$+C$:RETURN
2870 !PRINTC$+C$+C$+"[218]EIT[160]IM[160][211]YSTEM>[160]"
2880 !PRINTMID$(TI$,3,2)+"[160]MIN.[160]"+RIGHT$(TI$,2)+"[160]SEC.>"
2890 GOTO2910
2900 !PRINTC$+C$+C$+DT$+"[160][160]":GOSUB630:!PRINT">"
2910 ZZ=1:GOSUB 7800:IFFL=1THENRETURN
2920 !PRINTC$+C$:RETURN
2930 IFFX=1THEN:!PRINTC$+C$+C$+"[197]>[160][203]EIN[160]LOESCHEN,[160]DA[160][196]ISK[160]VOLL."+C$:RETURN
2940 !PRINTC$+C$+C$+"[213]SER[160]LOESCHEN"+C$+"-------------"+C$
2950 !PRINTC$+"[208]SEUDONYM[160]>":GOSUB220:IFFL=1THENRETURN
2960 !PRINTC$:NA$=AA$:IFNA$=""ORNA$<>VN$ THENRETURN
2970 !PRINTC$+"[208]ASSWORT[160][160]>":GOSUB220:IFFL=1THENRETURN
2980 PA$=AA$:IFAA$=""THENRETURN
2990 SB$=NA$:GOSUB430:IFFF=1THENRETURN
3000 IFAP$<>PA$THENRETURN
3010 !PRINTC$+C$+"[215]ILLST[160][196]U[160][196]ICH[160]WIRKLICH[160]AUS[160]DER"+C$
3020 !PRINT"[213]SERLISTE[160]LOESCHEN[160](J/N)[160]>":ZZ=1:GOSUB 7800
3030 IFFL=1THEN RETURN
3040 IFA$<>KJ$ANDA$<>GJ$THENRETURN
3050 CLOSE1:OPEN1,F2,4,"MISTHAUFEN,S,A":PRINT#1,NA$:CLOSE1
3060 RETURN
3070 CLOSE1:OPEN1,F2,3,"USERGROUPS,L,"+CHR$(25):IFDA=1THENX=1:DA=0:GOTO3140
3080 !PRINTC$+C$+C$+C$+"[213]SERGROUPS"+C$+"----------"+C$+C$
3090 X=1:!PRINT"[208]ASSWORT[160]>":GOSUB220:IFFL=1THENRETURN
3100 IFAA$=""ORAA$="\"ORFV=1THEN:!PRINTC$+C$+C$:CLOSE1:RETURN
3110 IFAA$=UG$(X)THEN3140
3120 IFX<10THENX=X+1:GOTO3110
3130 !PRINTC$+C$+"[213]SERGROUP[160]EXISTIERT[160]NICHT."+C$+C$:CLOSE1:RETURN
3140 UN=X:!PRINTC$+C$+"IDENTIFIZIERT."+C$:X=0:CLOSE3:OPEN3,F2,15
3150 X=X+1:A$=""
3160 PRINT#3,"P"+CHR$(3)+CHR$(UN*10+X)+CHR$(0)+CHR$(1):INPUT#1,UM$(X)
3170 PRINT#3,"P"+CHR$(3)+CHR$(UN*10+X)+CHR$(0)+CHR$(22):INPUT#1,A$
3180 UF(X)=VAL(A$):IFX<9THEN3150
3190 CLOSE3:CLOSE1
3200 !PRINTC$+C$+"[211]UBMENU"+C$+"-------"+C$+"[209][160][201]NS[160][205]ENUE"+C$+C$:FORX=1TO9
3210 IFUM$(X)<>""ANDUM$(X)<>"\"THEN:!PRINTRIGHT$(STR$(X),1)+"[160]"+UM$(X)+C$
3220 NEXTX:!WAITC$+"[160][160][196]EINE[160][215]AHL[160]>"
3230 ZZ=1:GOSUB7800:IFFL=1THENRETURN
3240 Z=VAL(LEFT$(A$,1)):X=UF(Z):IFA$=""ORA$=KQ$ORA$=GQ$THEN:!PRINTC$+C$:RETURN
3250 IFX=0THEN:!PRINT"->":GOTO3230
3260 Z1=0:Z2=0:MN$(0,0)="("+RIGHT$(STR$(UN),1)+")"+UM$(Z):L=LEN(UM$(Z))+3:FU=1
3270 ONXGOSUB2080,7040,3300
3280 FU=0:IFFL=1THENFC=1:RETURN
3290 CLOSE3:CLOSE1:GOTO3200
3300 CLOSE1:OPEN1,F2,3,"USERGROUPS,L,"+CHR$(25):CLOSE3:OPEN3,F2,15
3310 !PRINTC$+C$+C$+"[208]ASSWORT[160]>":GOSUB220:IFFL=1THENRETURN
3320 IFAA$=""ORAA$="\"THENRETURN
3330 PRINT#3,"P"+CHR$(3)+CHR$(UN*10)+CHR$(0)+CHR$(18):INPUT#1,US$
3340 IFUS$=AA$THENFD=0:GOTO3390
3350 IFFD=1THENFL=1:FW=1:RETURN
3360 !PRINTC$+C$+"[197]>[160][206]ICHT[160]IDENTIFIZIERT."+C$:FD=1
3370 !PRINT"[194]EIM[160]2.[198]EHLVERSUCH[160]FLIEGSTE[160]RAUS."+C$+C$+"[205]IT[160]<[195][210]>[160]INS[160][211]UBMENU."
3380 GOTO3310
3390 !PRINTC$+C$+C$+"[213]SERGROUP[160][198]ERNWARTUNG"+C$+"---------------------"+C$+C$
3400 !PRINT"[215]ELCHE[160][206]R.[160](1-9)>":ZZ=1:GOSUB 7800:IFFL=1THENRETURN
3410 Z=VAL(A$):IFZ=0THENRETURN
3420 !PRINTC$+C$+C$+"[201]NHALT>[160]"+UM$(Z)+"[160][160][160][198]KT>"+STR$(UF(Z))
3430 !PRINTC$+C$+"1[160][193]ENDERN[160]2[160][204]OESCHEN[160]3[160][193]NHA.[160][209][160][160][209]UIT[160]>"
3440 ZZ=1:GOSUB7800:IFFL=1THENRETURN
3450 IFVAL(A$)=0THENRETURN
3460 X=VAL(A$):!PRINTC$+C$+"[197]INGABEN[160]OK[160](J/N)>":ZZ=1:GOSUB 7800
3470 IFFL=1THENFC=1:CLOSE1:RETURN
3480 IFA$<>KJ$ANDA$<>GJ$THEN3390
3490 IFX=2THEN3760
3500 IFX=3THENA$=UM$(Z):B$=STR$(UF(Z)):GOTO3600
3510 IFX=1ANDFX=1THEN:!PRINTC$+C$+"[197]>[160][196]IE[160][196]ISKETTE[160]IST[160]VOLL."+C$:RETURN
3520 IFX=1THEN3540
3530 RETURN
3540 PRINT#3,"S:"+"("+RIGHT$(STR$(UN),1)+")"+UM$(Z)
3550 !PRINTC$+C$+C$+"[206]AME[160](20)[160]>":ZZ=20:GOSUB 7800:IFFL=1THENRETURN
3560 IFA$=""ORA$="\"THENRETURN
3570 !PRINTC$+C$+"[1][160][205]SG.[198]ILE[160][160][2][160][204]ESEN[160][160][3][160][210]EMOTE[160]>"
3580 ZZ=1:XX$=A$:GOSUB 7800:B$=A$:A$=XX$:IFFL=1THENRETURN
3590 IFVAL(B$)>3ORVAL(B$)=0THEN3570
3600 PRINT#3,"P"+CHR$(3)+CHR$(UN*10+Z)+CHR$(0)+CHR$(1):PRINT#1,A$
3610 PRINT#3,"P"+CHR$(3)+CHR$(UN*10+Z)+CHR$(0)+CHR$(22):PRINT#1,B$
3620 UM$(Z)=A$:UF(Z)=VAL(B$)
3630 MN$(0,0)="("+RIGHT$(STR$(UN),1)+")"+UM$(Z):Z1=0:Z2=0:IFUF(Z)=3THEN3730
3640 IFUF(Z)=1THEN3740
3650 CLOSE3:CLOSE1:OPEN1,F1,3,MN$(0,0)+",S,W":PRINT#1,DT$:PRINT#1,VN$:PRINT#1,"INIT"
3660 PRINT#1:CLOSE1:SN$=MN$(0,0):D$=DT$
3670 !PRINTC$+C$+"[199]ARBAGE[160][195]OLL.[160](J/N)[160]>"
3680 ZZ=1:GOSUB 7800:IFFL=1THENRETURN
3690 IFA$<>KJ$ANDA$<>GJ$THEN3710
3700 !PRINTC$+C$+"[199][195][160]IN[160]PROGRESS. ":!PRINTSTR$(INT(FRE(0)/2.2))+"[160]FREE."+C$
3710 EZ=150:EB=5000:V$=VN$:VN$="SYSOPS":GOSUB860:EZ=50:EB=1500
3720 VN$=V$:DT$=D$:IFFL=1THENRETURN
3730 !PRINTC$+C$:RETURN
3740 CLOSE3:CLOSE1:OPEN1,F1,3,MN$(0,0)+",S,W":PRINT#1,DT$:PRINT#1,"USERGROUP"
3750 PRINT#1,C1$+"USERGROUP[160]INIT"+C1$:PRINT#1:CLOSE1:GOTO3730
3760 PRINT#3,"S:"+"("+RIGHT$(STR$(UN),1)+")"+UM$(Z):UM$(Z)="\":UF(Z)=0
3770 PRINT#3,"P"+CHR$(3)+CHR$(UN*10+Z)+CHR$(0)+CHR$(1):PRINT#1,"\"
3780 PRINT#3,"P"+CHR$(3)+CHR$(UN*10+Z)+CHR$(0)+CHR$(22):PRINT#1,"0":GOTO3730
3790 IFDRU=0THEN5530
3800 !PRINTC$+C$+"[208]RINTING[160]BITTE[160]WARTEN"+C$
3810 CLOSE3:OPEN3,F2,4,"PROTOKOL,S,R":CLOSE4:OPEN4,4,7
3820 INPUT#3,A$
3830 IFST=64THEN3870
3850 PRINT#4,A$:INPUT#3,A$:IFST=64THEN3870
3852 PRINT#4,A$;:INPUT#3,A$:IFST=64THEN3870
3854 PRINT#4,TAB(5);A$:INPUT#3,A$:IFST=64THEN3870
3856 PRINT#4,TAB(5);A$
3860 GOTO3820
3870 PRINT#4:CLOSE3:CLOSE4:GOTO5530
3880 !PRINTC$+C$+"[208]SEUDONYM[160]=>":GOSUB220
3890 CLOSE1:OPEN1,F2,3,"HACKERPASS,S,A"
3900 PRINT#1,AA$:CLOSE1
3910 GOTO5530
3920 RT$=STR$(RT):!PRINTC$+C$+"[218]EITLIMIT[160]("+RT$+")[160]>":GOSUB220:A$=AA$
3930 RN=VAL(A$):GOTO5530
3940 FX$=STR$(FX):!PRINTC$+C$+"[196]ISK[160]SPERREN[160]("+FX$+")[160]>":GOSUB220:A$=AA$
3950 FX=VAL(A$):GOTO5530
3960 POKE646,13:PRINTCHR$(19);:FORX=1TO7:PRINTSP$:NEXTX
3970 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";:POKE1103,103
3980 PRINTSP$:PRINT"[160][213]SERNAME>[160]              [160][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][160]"LEFT$(VN$,13);:
3990 PRINTTAB(26)"[204]OGIN>[160]"H$M$
4000 PRINT"[160][193]NRUFER[160]>"CA-1TAB(26)"[211]YSOP>";:IFFO=1THENPRINT"[160]ON[160]"
4010 IFFO=0THENPRINT"[160]OFF"
4020 PRINTTAB(1)"[208]RINTER[160]>";:IFDRU=1THENPRINT"[160]ON [160][160][160][160][160][160][160][160][160][160]";
4030 IFDRU=0THENPRINT"[160]OFF[160][160][160][160][160][160][160][160][160][160]";
4040 PRINTTAB(26)"[213]SER[160]>"AU
4050 PRINTTAB(1)"[208]ASSWORT>               [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157] "LEFT$(PA$,13);:
4060 PRINTTAB(26)"[205]SG. >"FM
4070 POKE55336,13:POKE55376,13:POKE55416,13:POKE55456,13:POKE55496,13
4080 POKE55375,13:POKE55415,13:POKE55455,13:POKE55495,13:POKE55535,13
4090 POKE1104,101:POKE1143,103:POKE1144,101:POKE1183,103:POKE1064,101
4100 POKE1184,101:POKE1223,103:POKE1224,101:POKE1263,103
4110 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":POKE646,5
4115 RETURN
4120 SYS49152:OPEN2,2,0,CHR$(6)+CHR$(224):!SET 120,120,6,3:!RON:!CON:!CLR
4130 POKE53280,0:POKE53281,0:PRINT"[147]";CHR$(14):F1=8:F2=8:RN=60
4140 DIMEI$(151),DM$(13),DM(13):POKE53272,23:RT=20:KZ=00650
4150 DIMMN$(9,9),MU(9,9)
4160 D6$=CHR$(45):D7$=CHR$(63):EB=1500:FORX=1TO39:SP$=SP$+"[160]":NEXTX
4170 CX=50284:S4=0:S3=8:F3=8:DIMII$(20):DA=0:US=0
4180 ER=56577:D1$=CHR$(32):D2$=CHR$(127):D3$=CHR$(34):D4$=CHR$(20):I=1:EZ=50
4190 D5$=CHR$(8):C1$=CHR$(13):C$=CHR$(13)+CHR$(10):SD=831:SE=829
4200 KZ$=CHR$(90):KL$=CHR$(76):POKESD,1
4210 GZ$=CHR$(122):KC$=CHR$(67):GC$=CHR$(99):KE$=CHR$(69):GE$=CHR$(101):ME=0
4220 GL$=CHR$(108):KQ$=CHR$(81):GQ$=CHR$(113):KD$=CHR$(68):GD$=CHR$(100):MSG=0
4230 KS$=CHR$(83):GS$=CHR$(115):MU(9,9)=5:MN$(9,9)="99[160][204][207][199][207][198][198]":KJ$=CHR$(74):I=1
4240 GJ$=CHR$(106):KU$=CHR$(85):GU$=CHR$(117):EI$(1)="...":CLOSE1:CLOSE3:GF=0
4250 PRINT"[147][196]ATENDISC EINLEGEN + [212]ASTE"
4260 H$="01":WAIT198,1:GETA$:OPEN1,F2,3,"ULIST.INDEX,S,R":INPUT#1,AU:CLOSE1
4270 PRINT"ULIST.INDEX EINGELESEN"
4280 REM
4290 REM
4300 REM
4350 OPEN1,F2,3,"USERGROUPS,L,"+CHR$(25):OPEN3,F2,15
4360 FORX=1TO9
4370 PRINT#3,"P"+CHR$(3)+CHR$(10*X)+CHR$(0)+CHR$(1):INPUT#1,UG$(X):NEXTX:CLOSE3
4380 PRINT"USERGROUPS  EINGELESEN"
4390 CLOSE1:OPEN1,F2,3,"MENUES,S,R"
4400 INPUT#1,A$:IFA$=CHR$(255)THEN4420
4410 INPUT#1,Z1,Z2,Z3:MN$(Z1,Z2)=A$:MU(Z1,Z2)=Z3:GOTO4400
4420 PRINT"MENUES      EINGELESEN"
4430 CLOSE1:OPEN1,F2,4,"CALLERS,S,R":INPUT#1,CA:CLOSE1:BF=FRE(0)
4440 PRINT"CALLERS     EINGELESEN"
4450 READAA,BB,CC:IFAA<0THEN4470
4460 GOTO4450
4470 FORX=1TO13:READDM$(X):READDM(X):NEXTX:FORX=820TO826:READZ:POKEX,Z:NEXTX
4480 POKE88,0:POKE89,192:POKE90,0:POKE91,192:POKE780,0:POKE781,160:SYS820
4490 POKE88,0:POKE89,0:POKE90,0:POKE91,0:POKE780,0:POKE781,224:SYS820
4500 POKE59639,6:POKE1,53:GOSUB510:PRO=0:GOSUB 630:ZD=VAL(H$)
4510 GOSUB3960:PRINT"[211]YSTEM[160]READY. ";BF;" [194]YTES [198]REE"
4512 POKE198,0:CLOSE1
4514 POKEER,PEEK(ER) AND 255-4
4515 POKE2040,PEEK(2040)+1:IFPEEK(2040)>200THENPOKE2040,0:POKE2041,PEEK(2041)+1
4517 IFPEEK(2041)=3THENPOKE2041,0:POKE53248+17,PEEK(53248+17) AND 255-16
4520 GETA$:IFA$=" "THENPOKE2041,0:POKE53248+17,PEEK(53248+17) OR 16
4522 IF(PEEK(ER) AND 16)=16 THENPOKE53248+17,PEEK(53248+17) OR 16:GOTO4530
4528 GOTO4515
4530 REM
4535 POKE2041,0:PRO=1:GOSUB 630:PRO=0:IFVAL(RIGHT$(H$,2))<ZDTHENAX=1:GOTO 5430
4540 S4=0:CLOSE1:OPEN1,F2,3,"ANFANG,S,R"
4550 !CON:!CLR:!PRINTC$+C$+C$+C$+C$+C$+C$+C$+C$
4560 !PRINT"[199].[205].[193][160][160][160][205]AILBOX[160]/[160]24[160][211]TD.[207]NLINE"+C$
4570 !PRINTC$+"[211]YSOP[160][195]RACKBIT"+C$
4580 !PRINTC$+DT$+"[160][160]":GOSUB630
4590 !PRINTC$
4595 !PRINTC$+"[204]ISTE[160]ALLER[160][205]ENUEPUNKTE[160]UND"+C$+"[193]NLEITUNG[160]AUF[160][211]EITE[160]15"+C$+C$
4600 !PRINTC$+C$+"[210][197][212][213][210][206],[160][197][216][160]ODER[160][197][216]2[160]DRUECKEN[160]->":AA$="":EX=0
4610 POKE667,PEEK(668):TI$="000000"
4620 GOSUB220:IFFL=1THEN4512
4630 IFAA$="435855"THENS3=8:S4=1:CLOSE1:VN$="GMA - BOX":GOTO5530
4640 IFAA$="EX"THENEX=1
4650 IFAA$="EX2"THENEX=2
4660 !PRINTC$+C$+C$+"[200]ERZLICH[160][215]ILLKOMMEN."+C$+C$
4670 !PRINT"[201]CH[160]BEGRUESSE[160]DEN"+STR$(CA)+".[160][193]NRUFER."+C$+C$
4680 REM
4690 GOSUB 7700:CLOSE1:POKE667,PEEK(668)
4700 !PRINTC$+C$+"[213]SERNAME[160][160]>":GOSUB 220:IFFL=1THEN4512:
4701 IFAA$="GAST"THENCLOSE3:OPEN3,F2,15:GOTO4800
4703 OPEN1,8,2,"USERLISTE,S,R":!PRINTC$+C$+"SEARCHING,[160]PLEASE[160]WAIT"+C$+C$
4705 INPUT#1,AN$:INPUT#1,AP$:IFAN$=AA$THENCLOSE1:GOTO4720
4710 IFST<60THEN4705
4715 CLOSE1:CLOSE3:OPEN3,F2,15:GOTO4770
4720 VN$=AA$:CLOSE1:CLOSE3:OPEN1,F2,3,"\"+VN$+",S,R":OPEN3,F2,15:AB=0
4730 SP=1:!PRINTC$+"[208]ASSWORT[160][160]>":GOSUB220:SP=0:IFFL=1THENCLOSE1:CLOSE3:GOTO4512
4740 PA$=AA$:IFPA$=""THENGOTO4730
4750 IFAP$=PA$THENGOTO4820
4760 !PRINTC$+C$+"[198]ALSCHES[160][208]ASSWORT!"+C$+C$:IFFD=0THENFD=1:GOTO4730
4765 IFFD=1THEN4800
4770 !PRINTC$+C$+"[206]ICHT[160]EINGETRAGEN![160][215]ENN[160]DOCH,[160]<[202]>"+C$+"DRUECKEN.[160][211]ONST[160]<[195][210]>[160]>"
4780 Z=1:GOSUB 7800:IFFL=1THEN4520
4790 IF(A$=KJ$ORA$=GJ$)ANDFD=0THENFD=1:CLOSE1:CLOSE3:GOTO4700
4800 FD=0:VN$="GAST":FV=1:RT=10
4810 INPUT#3,AB:CLOSE3:CLOSE1:GOTO4870
4820 INPUT#3,AB:CLOSE3:CLOSE1:RT=RN
4830 IFAB<>0THENCLOSE1:!PRINTC$+C$+"[203]EINE[160][205]SG.[160]FUER[160][196]ICH.":GOTO4870
4840 MSG=1:CLOSE1:OPEN1,F2,4,"\"+VN$+",S,R"
4850 GOSUB70:IFFL=1THEN5220
4860 !PRINTC$+C$+"[196]U[160]KANNST[160]DIE[160][205][211][199][160]IN[160]42[160]NOCHMALS"+C$+"LESEN!"+C$+C$
4870 IFVN$="GAST"THENFV=1:!PRINTC$+C$+"[196]U[160]KANNST[160][196]ICH[160]IN[160]31[160]EINTRAGEN."+C$+C$
4880 CA=CA+1:!PRINTC$+C$+C$+"[201]CH[160]WUENSCHE[160][196]IR,[160]"+VN$+","+C$
4890 !PRINT"VIEL[160][214]ERGNUEGEN."+C$+C$:GOSUB3960:POKE1114,42:PRINT""
4900 RM=RT-VAL(MID$(TI$,3,2)):IFRM<=0THENFL=1:FI=1:GOTO5220
4910 RM$=RIGHT$(STR$(RM),2):IFRM<10THENRM$=RIGHT$(RM$,1)
4920 IFEX=2THEN:!PRINTC$+C$+RM$+"[160][200]>":GOTO4950
4930 !PRINTC$+C$+"[206]OCH[160]"+RM$+"[160][205]IN."+C$
4940 !PRINT"[211]EITE[160]-->"
4950 IFPEEK(653)=2THENGOSUB5080
4960 POKE667,PEEK(668)
4970 ZZ=2:GOSUB 7800:IFFL=1THENGOTO 5220
4980 IFVAL(LEFT$(A$,2))=0ORLEN(A$)=1THENZ1=0:X=1:GT=1:GOTO5030
4990 Z1=VAL(LEFT$(A$,1)):Z2=VAL(RIGHT$(A$,1)):X=MU(Z1,Z2):L=LEN(MN$(Z1,Z2))
5000 IFL=0THEN:!PRINT"->":GOTO4950
5010 IFX>13THENX=X-13:GOTO5050
5020 GT=1
5030 ONXGOSUB740,2030,2080,1710,5290,820,6560,2370,2740,2280,3070,6230,6670
5040 IFGT=1THENGT=0:GOTO5060
5050 ONXGOSUB2490,2930,2830,2870,2900,6670,6950,6970,7500
5060 IFFL=1THEN5220
5070 GOTO4900
5080 GETA$:PRINT""TAB(17)"[198]1-8>"
5090 WAIT198,1:GETA$
5100 IFA$=CHR$(139)THEN6650
5110 IFA$=CHR$(133)THENFO=1:GOTO5160
5120 IFA$=CHR$(137)THENFO=0:GOTO5160
5130 IFA$=CHR$(135)THEN5170
5140 IFA$=CHR$(134)THENDRU=1:GOTO5160
5145 IFA$="[140]"THENCLOSE1:OPEN1,8,2,"PROTOKOL,S,A":PRINT#1,"RAUS":ZX=1:GOTO5360
5150 IFA$=CHR$(138)THENDRU=0
5160 GOSUB3960:POKE1114,42:PRINT"";:RETURN
5170 GOSUB3960:PRINT""
5180 POKE1114,42:!PRINTC$+C$+"[196]ER[160][211]YSOP[160]WILL[160][196]ICH[160]SPRECHEN,"+C$
5190 !PRINT"MELDE[160][196]ICH[160]IN[160]33"+C$+C$+C$:FO=1:GOSUB3960
5200 PRINT"":POKE1114,42
5210 !PRINT"[160][160][196]EINE[160][215]AHL[160]>":RETURN
5220 FORZ=1TOEZ:EI$(Z)="":NEXTZ:EI$(1)="...":I=1:GF=0:FE=0:POKESD,1
5230 EX=0:POKE54296,0:FV=0:FL=0:CLOSE3:IS$=RIGHT$(TI$,4):FD=0:FS=0
5240 IFVN$="GMA-BOX"THENGOTO5420
5250 CLOSE1:OPEN1,F2,5,"PROTOKOL,S,A"
5260 IFFI=1THENFI=0:GOTO5300
5270 IFFW=1THENFW=0:GOTO5320
5280 FC=0:PRINT#1,"HOER":GOTO5360
5290 FL=1:FW=1:RETURN
5300 !PRINTC$+C$+C$+C$+C$:PRINT#1,"LIMIT":ZI=1
5310 !PRINT"[160][160]***[160][218][160][197][160][201][160][212][160][204][160][201][160][205][160][201][160][212][160]***"
5320 !PRINTC$+C$+C$+C$+"[212]SCHUESS,[160]"+VN$
5330 !PRINTC$+C$+"[194]IS[160]BALD."+C$
5340 IFZI=1THENZI=0:GOTO5360
5350 PRINT#1,"LOFF"
5360 HH$=H$:MM$=M$:PRO=1:GOSUB630:PRO=0
5370 PRINT#1,DT$+" "+HH$+"."+MM$+" - "+H$+"."+M$
5380 IFZX=0THEN:!PRINTC$+"[197]S[160]IST[160]":GOSUB630:!PRINTC$+"[204]OGOFF[160]RUNNING"+C$+C$
5390 FORT=1TO5000:NEXT:ZX=0:PRINT#1,VN$::PRINT#1,"-------------------":CLOSE1
5395 POKEER,PEEK(ER) OR 4
5400 OPEN1,F2,15,"S:CALLERS":CLOSE1:OPEN1,F2,3,"CALLERS,S,W":PRINT#1,CA:CLOSE1
5410 IFMSG=1THENMSG=0:OPEN1,F2,15,"S:\"+VN$:CLOSE1:GOTO5450
5420 POKE1114,32:GOTO5450
5430 DN=DN+1:IFDN>DM(DM)THENDM=DM+1:DN=1
5440 DT$=RIGHT$(STR$(DN),2)+"."+DM$(DM)+"[160]"+JR$
5450 ZD=VAL(H$):PRINT:IFAX=0THENBF=FRE(0):PRINT"[211]YSTEM[160]READY.";BF;" [198]REE"+C$
5460 IFAX=1THENAX=0:GOTO4535
5470 GOTO4512
5480 DATA32,192,128,39,32,128,43,224,256,52,32,256,52,32,256,58,128,256,52,32
5490 DATA256,43,224,256,34,192,384,-1,-1,-1
5500 DATA"[202]AN.",31,"[198]EB.",28,"[205]AERZ",31,"[193]PRIL",30,"[205]AI",31,"[202]UNI",30,"[202]ULI",31
5510 DATA"[193]UG.",31,"[211]EPT.",30,"[207]KT.",31,"[206]OV.",30,"[196]EZ.",31,"[202]AN.",31
5520 DATA133,95,134,96,76,191,163
5530 :!COFF:S4=1:!PRINTC$+C$+"1[160][196]IR"+C$+"2[160][195]OMMAND"+C$:EX=1
5540 !PRINT"3[160][198].READ"+C$+"4[160]NEW[160][198]."+C$+"5[160]NEW[160][200]ACKER"+C$
5550 !PRINT"6[160]LIMM"+C$+"7[160][196].PROT."+C$+"8[160][198].ADDR[160]CHANGE"+C$
5560 !PRINT"9[160]PROT.PRINT"+C$+"10[160][205][211][199][160]WRITE"+C$
5570 !PRINT"11[160]CONF"+C$+"12[160][197]ND"+C$
5580 !PRINTC$+C$+"[195]HOISE[160]":GOSUB220:A$=AA$
5585 IFVAL(A$)=1THENGOSUB 1:GOTO5530
5590 IFVAL(A$)<2ORVAL(A$)>12THEN5580
5600 ONVAL(A$)-1GOTO5820,5940,6150,3880,3920,3940,6610,3790,6900,6960,6050
5820 !PRINTC$+"[194]EFEHL[160]":GOSUB220:FI$=AA$
5830 IFFI$=""THEN5530
5840 !PRINTC$+"[211]ICHER[160]":GOSUB220:A$=AA$
5850 IF(A$=CHR$(74)ORA$=CHR$(106))THEN5870
5860 CLOSE1:GOTO5530
5870 OD$=FI$
5880 IFLEFT$(OD$,1)="N"ORLEFT$(OD$,1)="[206]"THEN5820
5890 CLOSE1:OPEN1,S3,15,OD$
5900 INPUT#1,FF1,FF1$,FF2,FF3
5910 !PRINTC$+STR$(FF1)+"[160]/[160]"+FF1$+"[160]/[160]"+STR$(FF2)+"[160]/[160]"+STR$(FF3)+C$
5920 IFMID$(OD$,4,1)=CHR$(57)THENFM=0
5930 GOTO5530
5940 !PRINTC$+"[206]AME[160]":ZZ=20:GOSUB7800:FF$=A$
5950 FI$=FF$+",S,R"
5960 CLOSE1:CLOSE3:OPEN1,S3,3,FI$:OPEN3,S3,15:INPUT#3,FF1,FF1$:CLOSE3:CLOSE1
5970 !PRINTC$+C$
5980 IFFF1<>0THEN:!PRINTC$+STR$(FF1)+"/"+FF1$+C$:GOTO5530
5990 IFS3=9THEN6020
6000 IF(LEFT$(FI$,1)<>"\")AND(MID$(FI$,3,1)<>" ")THEN 6080
6010 REM
6020 CLOSE1:OPEN1,S3,3,FI$
6030 GOSUB70
6040 CLOSE1:GOSUB220:GOTO5530
6050 CLOSE1:CLOSE3:CLOSE5:CLOSE6
6060 !PRINTC$+C$+"[194]OX[160]READY"+C$+C$:S4=0:BF=FRE(0)
6070 GOTO4540
6080 S0=0:CLOSE1:OPEN1,8,2,FI$
6085 !GET#1,A$,200:IFST<>0THENCLOSE1:!WAITA$+C$+"*[197][206][196]*"+C$:ZZ=1:GOSUB7800:S0=1
6087 IFS0<>0THENS0=0:GOTO 5530
6090 !WAITA$:IF RS AND 1 THEN CLOSE1:GOTO5530
6100 GOTO6085
6150 !PRINTC$+C$+"1[160]FILES"+C$+"2[160]PROT."+C$+"CHOISE[160]"
6160 GOSUB220
6170 IFAA$<"1"ORAA$>"2"THEN6220
6180 IFAA$="2"THEN6210
6190 IFAA$=""THEN6220
6200 CLOSE3:OPEN3,S3,3,"@:FILES,S,W":PRINT#3,">--------":GOTO6220
6210 CLOSE3:OPEN3,S3,3,"@:PROTOKOL,S,W":PRINT#3,">--------"
6220 CLOSE3:GOTO5530
6230 PRI=1:GF=0:I=1:EI$(1)="...":GOTO860
6240 IFDRU=1THEN6270
6250 !PRINTC$+C$+"[208]RINTING...[160][194]ITTE[160]WARTEN."
6260 SN$="[196]RUCKER":FM=FM+1:GOSUB3970:GOTO1480
6270 !PRINTC$+C$+"[208]RINTING...[160][194]ITTE[160]WARTEN."
6280 CLOSE4:OPEN4,4,7:Z=1
6290 PRINT#4:PRINT#4:PRINT#4,"--------------------------------------":PRINT#4
6300 PRINT#4,DT$:PRINT#4,"[205]SG.VON[160]"+VN$:PRINT#4
6310 IFEI$(Z)="..."ORZ>EZTHENCLOSE4:GF=0:I=1:EI$(1)="...":FS=1:GOTO1540
6320 PRINT#4,EI$(Z):EI$(Z)="":Z=Z+1:GOTO6310
6330 CLOSE1:OPEN1,F1,3,MN$(Z1,Z2)+",S,R":!PRINTC$+C$+C$
6340 !PRINTC$:GOSUB 7700:CLOSE1:!PRINTC$+C$+C$+">>[160][198]ILE[160][197]NDE[160]<<"+C$+C$:RETURN
6350 IFPRI=1THENGOTO6410
6360 !PRINTC$+C$+"[193][160][195][160][200][160][212][160][213][160][206][160][199]!!"+C$+"[212]EXT[160]NOCH[160]NICHT[160]GESPEICHERT!"+C$
6370 !PRINT"[211]OLL[160][212]EXT[160]GESPEICHERT[160]WERDEN[160]([202]/[206])"
6380 ZZ=1:GOSUB7800:IFFL=1THENFORMM=0TOEZ:EI$(MM)="":RETURN
6390 IFA$=KJ$ORA$=GJ$THENA$=KS$:GOTO1070
6400 SIC=0:A$=KQ$:GOTO1000
6410 !PRINTC$+C$+"[193][160][195][160][200][160][212][160][213][160][206][160][199]!!"+C$+"[212]EXT[160]NOCH[160]NICHT[160]GEDRUCKT!"+C$
6420 !PRINT"[211]OLL[160][212]EXT[160]GEDRUCKT[160]WERDEN[160]([202]/[206])"
6430 ZZ=1:GOSUB7800:IFFL=1THENRETURN
6440 IFA$=KJ$ORA$=GJ$THENA$=KS$:GOTO1060
6450 SIC=0:A$=KQ$:GOTO1000
6460 IFME=1THEN6480
6470 AA=54272:POKEAA+5,30:POKEAA+6,32:POKEAA+24,15
6480 READHF,NF,NW :POKEAA+5,30:POKEAA+6,32:POKEAA+24,15:
6490 IFHF<0THENRESTORE:POKEAA+4,00:RETURN
6500 POKEAA,NF:POKEAA+1,HF
6510 POKEAA+4,33
6520 FORI=1TONW:NEXTI
6530 POKEAA+4,33
6540 FORI=1TO70:NEXTI
6550 ME=1:POKEAA+4,00:RETURN
6560 CLOSE1:CLOSE3:OPEN1,F2,3,"\"+VN$+",S,R":OPEN3,F2,15:AB=0
6570 INPUT#3,AB:CLOSE3
6580 IFAB<>0THENCLOSE1:!PRINTC$+C$+"[203]EINE[160][205]SG.[160]FUER[160][196]ICH.":RETURN
6590 CLOSE1:OPEN1,F2,4,"\"+VN$+",S,R"
6600 GOSUB70:RETURN
6610 !PRINTC$+C$+"OLD[160]ADDR.[160]"+STR$(S3)+C$
6620 !PRINTC$+"NEW[160]ADR.[160]?":GOSUB220:FF9$=AA$
6630 S3=VAL(FF9$):IFS3<8ORS3>9THEN6610
6640 GOTO5530
6650 INPUT"LIMIT[160]";RN:IFRN>90ORRN<0THEN6650
6660 GOTO5160
6670 IFX=6THEN6870
6680 IFFV=1THEN:!PRINTC$+C$+"[196]U[160]MUSST[160][196]ICH[160]ZUERST[160]EINSCHREIBEN.":RETURN
6690 !PRINTC$+C$+"[208]ROGRAMME[160]ZUM[160][196][207][215][206]'[204]ADEN"+C$
6700 !PRINT"-------------------------------------"+C$+C$+C$
6710 CLOSE1:OPEN1,F3,3,"FILEBOX,S,R":II=1
6720 IFST=64THEN6740
6730 INPUT#1,II$(II):II=II+1:GOTO6720
6740 II=II-1:CLOSE1:FORIJ=1TOII
6750 !PRINTSTR$(IJ)+"[160]"+II$(IJ)+C$
6760 NEXTIJ:!PRINTC$+C$+"[160][160][160][196]EINE[160][215]AHL[160]>"
6770 ZZ=3:GOSUB 7800:IFFL=1THENRETURN
6780 IFA$=""ORA$=KQ$ORA$=GQ$THENCLOSE1:RETURN
6790 IK=VAL(A$):IFIK<1ORIK>IITHEN:!PRINT"-->":GOTO6770
6800 !PRINTC$+C$+II$(IK)+C$+C$
6810 !PRINT"READY[160]?[160](J/N)":ZZ=1:GOSUB 7800:IFFL=1THENRETURN
6820 IFA$=KJ$ORA$=GJ$THEN6850
6830 IFA$=CHR$(13)THEN6810
6840 RETURN
6850 OPEN1,F3,3,II$(IK)+",S,R":!PRINTC$+C$+C$+C$
6860 !PRINTC$:GOSUB 7700:CLOSE1:!PRINTC$+C$+C$+C$+"--[160][198]ILE[160][197]NDE[160]--"+C$+C$:RETURN
6870 !PRINTC$+C$+"[211]YS[207]P'S[160][201]NFOECKE"+C$
6880 !PRINT"-----------------"+C$+C$+C$
6890 CLOSE1:OPEN1,F3,3,"ANLEITUNG,S,R":II=1:GOTO6720
6900 GOSUB2370
6910 SN$=NA$:GOSUB860:FP=0:GOTO5530
6950 CLOSE1:OPEN1,F2,3,"ANFANG,S,R":!PRINTC$+C$+C$:GOSUB 7700:CLOSE1:RETURN
6960 GOSUB590:GOTO5530
6970 CLOSE1:OPEN1,F2,3,"HACKERPASS,S,R"
6980 IFST=64THENCLOSE1:!PRINTC$+C$:GOTO7020
6990 INPUT#1,HA$
7000 IFHA$=VN$THENCLOSE1:DA=1:GOTO3070
7010 GOTO6980
7020 !PRINT"[203]EIN[160][218]UTRITT[160]ZUR[160][200]ACKER-[197]CKE!"
7025 !PRINTC$+"[193]NMELDUNG[160]IN[160][211]EITE[160]13[160]ODER[160]52"+C$
7030 !PRINT"[205]IT[160]VOLLST.[160][193]DRESSE!"+C$+C$:RETURN
7040 CLOSE1:OPEN1,F1,3,MN$(Z1,Z2)+",S,R":!PRINTC$+C$:US=1
7050 POKECX,0:!PRINTC$+C$+C$:A$=""
7060 D$="":INPUT#1,D$:D$=A$+D$:S1=ST
7070 IFS1<>0ORPEEK(CX)=255THEN:!PRINTC$+C$+">>[160][198]ILE[160][197]NDE[160]<<":CLOSE1:RETURN
7080 !PRINTC$+C$+C$:INPUT#1,F$:GOSUB 7700:IFPEEK(CX)=255THEN7070
7090 GET#1,A$:A$="":GET#1,A$:S1=ST
7100 IFS1<>0THEN7070
7110 !PRINTC$+">"+C$:IF(PEEK(ER)AND16)=0THENFL=1:FC=1:CLOSE1:RETURN
7120 GOTO7060
7500 IFFV=1THEN:!PRINTC$+C$+"[196]U[160]MUSST[160][196]ICH[160]ZUERST[160]EINTRAGEN!"+C$+C$:RETURN
7510 !PRINTC$+C$+C$+"[193]NMELDUNG[160][200]ACKER"+C$+"----------------"+C$
7520 !PRINTC$+"[206]AME.......>":ZZ=30:GOSUB 7800:A1$=A$:IFFL=1THENRETURN
7540 !PRINTC$+"[214]ORNAME....>":ZZ=30:GOSUB 7800:A2$=A$:IFFL=1THEN RETURN
7550 !PRINTC$+"[211]TRASSE/NR.>":ZZ=30:GOSUB 7800:A3$=A$:IFFL=1THENRETURN
7560 !PRINTC$+"[208][204][218]/[207]RT....>":ZZ=30:GOSUB 7800:A4$=A$:IFFL=1THENRETURN
7570 !PRINTC$+"[212]EL(VORW.!)>":ZZ=30:GOSUB 7800:A5$=A$:IFFL=1THENRETURN
7580 IF(A1$="")OR(A2$="")OR(A3$="")OR(A4$="")OR(A5$="")THENRETURN
7590 CLOSE1:OPEN1,8,2,"ANMELDUNG,S,A"
7600 PRINT#1,VN$:PRINT#1,PA$:PRINT#1:PRINT#1,A1$:PRINT#1,A2$:PRINT#1,A3$
7610 PRINT#1,A4$:PRINT#1,A5$:PRINT#1,">--------"
7620 CLOSE1:!PRINTC$+C$+"[196]ATEN[160]SIND[160]GESAVED"+C$+"[215]IRST[160]IN[160]DEN[160]NAECHSTEN[160][212]AGEN"
7630 !PRINTC$+"EINGETRAGEN."+C$:OPEN1,8,2,"ANM.HACKER,S,A":PRINT#1,VN$:CLOSE1
7640 RETURN
7700 REM FILE READ
7710 !GET#1,A$,255,255:IF(RS AND 4)=0THEN:!WAIT A$:RETURN
7720 !WAITA$,1,1,1
7725 IF RS AND 2 THENGOSUB 7740:RETURN
7727 IF RS AND 1 THEN 7730
7729 IFST=0THENGOTO 7710
7730 POKE CX,255:S1=66:RETURN
7740 !GET#1,A$,255,255:IF((RS AND 4)<>0) AND ST=0 THEN 7740
7750 RETURN
7800 REM INPUT
7805 IF(PEEK(ER)AND16)=0 THENFL=1:FC=1:RETURN
7810 IFZZ=0THENZZ=1:
7815 !INPUT A$,ZZ:IFRSAND 128 THEN FL=1:FC=1:RETURN
7820 IF(PEEK(ER) AND 16)=0 THEN FL=1:FC=1:RETURN
7830 FL=0:FC=0:RETURN